Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fontsh13/fs_edtxt.frm

Text File | 1994-03-17 | 10KB | 329 lines

VERSION 2.00
Begin Form FS_EDTXT
   BackColor       =   &H00FFFF80&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Edit Sample Text"
   ClientHeight    =   6210
   ClientLeft      =   1695
   ClientTop       =   825
   ClientWidth     =   6855
   Height          =   6615
   KeyPreview      =   -1  'True
   Left            =   1635
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6210
   ScaleWidth      =   6855
   Top             =   480
   Width           =   6975
   Begin TextBox TxtTitle
      Height          =   360
      Left            =   960
      TabIndex        =   28
      Top             =   4920
      Width           =   5700
   End
   Begin SSCommand CmdCancel
      Caption         =   "&Cancel"
      ForeColor       =   &H00000080&
      Height          =   492
      Left            =   3840
      TabIndex        =   27
      Top             =   5520
      Width           =   1332
   End
   Begin SSCommand CmdOK
      Caption         =   "&OK"
      ForeColor       =   &H00000080&
      Height          =   492
      Left            =   1800
      TabIndex        =   26
      Top             =   5520
      Width           =   1332
   End
   Begin TextBox TxtSample
      Height          =   360
      Left            =   960
      TabIndex        =   25
      Top             =   4560
      Width           =   5700
   End
   Begin TextBox Txt60Pt
      Height          =   360
      Left            =   960
      MaxLength       =   18
      TabIndex        =   23
      Top             =   4200
      Width           =   5700
   End
   Begin TextBox Txt48Pt
      Height          =   360
      Left            =   960
      MaxLength       =   24
      TabIndex        =   21
      Top             =   3840
      Width           =   5700
   End
   Begin TextBox Txt36Pt
      Height          =   360
      Left            =   960
      MaxLength       =   35
      TabIndex        =   19
      Top             =   3480
      Width           =   5700
   End
   Begin TextBox Txt24Pt
      Height          =   360
      Left            =   960
      MaxLength       =   45
      TabIndex        =   17
      Top             =   3120
      Width           =   5700
   End
   Begin TextBox Txt18Pt
      Height          =   360
      Left            =   960
      MaxLength       =   62
      TabIndex        =   15
      Top             =   2760
      Width           =   5700
   End
   Begin TextBox Txt16Pt
      Height          =   360
      Left            =   960
      TabIndex        =   13
      Top             =   2400
      Width           =   5700
   End
   Begin TextBox Txt14Pt
      Height          =   360
      Left            =   960
      TabIndex        =   11
      Top             =   2040
      Width           =   5700
   End
   Begin TextBox Txt12Pt
      Height          =   360
      Left            =   960
      TabIndex        =   9
      Top             =   1680
      Width           =   5700
   End
   Begin TextBox Txt11Pt
      Height          =   360
      Left            =   960
      TabIndex        =   7
      Top             =   1320
      Width           =   5700
   End
   Begin TextBox Txt10Pt
      Height          =   360
      Left            =   960
      TabIndex        =   5
      Top             =   960
      Width           =   5700
   End
   Begin TextBox Txt9Pt
      Height          =   360
      Left            =   960
      TabIndex        =   3
      Top             =   600
      Width           =   5700
   End
   Begin TextBox Txt8Pt
      Height          =   360
      Left            =   960
      TabIndex        =   2
      Top             =   240
      Width           =   5700
   End
   Begin Label Label14
      BackColor       =   &H00FFFF80&
      Caption         =   "Title"
      Height          =   252
      Left            =   240
      TabIndex        =   29
      Top             =   5040
      Width           =   5700
   End
   Begin Label Label13
      BackColor       =   &H00FFFF80&
      Caption         =   "Sample"
      Height          =   252
      Left            =   240
      TabIndex        =   24
      Top             =   4680
      Width           =   5700
   End
   Begin Label Label12
      BackColor       =   &H00FFFF80&
      Caption         =   "60 point"
      Height          =   252
      Left            =   240
      TabIndex        =   22
      Top             =   4320
      Width           =   5700
   End
   Begin Label Label11
      BackColor       =   &H00FFFF80&
      Caption         =   "48 point"
      Height          =   252
      Left            =   240
      TabIndex        =   20
      Top             =   3960
      Width           =   5700
   End
   Begin Label Label10
      BackColor       =   &H00FFFF80&
      Caption         =   "36 point"
      Height          =   252
      Left            =   240
      TabIndex        =   18
      Top             =   3600
      Width           =   5700
   End
   Begin Label Label9
      BackColor       =   &H00FFFF80&
      Caption         =   "24 point"
      Height          =   252
      Left            =   240
      TabIndex        =   16
      Top             =   3240
      Width           =   5700
   End
   Begin Label Label8
      BackColor       =   &H00FFFF80&
      Caption         =   "18 point"
      Height          =   252
      Left            =   240
      TabIndex        =   14
      Top             =   2880
      Width           =   5700
   End
   Begin Label Label7
      BackColor       =   &H00FFFF80&
      Caption         =   "16 point"
      Height          =   252
      Left            =   240
      TabIndex        =   12
      Top             =   2520
      Width           =   5700
   End
   Begin Label Label6
      BackColor       =   &H00FFFF80&
      Caption         =   "14 point"
      Height          =   252
      Left            =   240
      TabIndex        =   10
      Top             =   2160
      Width           =   5700
   End
   Begin Label Label5
      BackColor       =   &H00FFFF80&
      Caption         =   "12 point"
      Height          =   252
      Left            =   240
      TabIndex        =   8
      Top             =   1800
      Width           =   5700
   End
   Begin Label Label4
      BackColor       =   &H00FFFF80&
      Caption         =   "11 point"
      Height          =   252
      Left            =   240
      TabIndex        =   6
      Top             =   1440
      Width           =   5700
   End
   Begin Label Label3
      BackColor       =   &H00FFFF80&
      Caption         =   "10 point"
      Height          =   252
      Left            =   240
      TabIndex        =   4
      Top             =   1080
      Width           =   5700
   End
   Begin Label Label2
      BackColor       =   &H00FFFF80&
      Caption         =   "9 point"
      Height          =   252
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   5700
   End
   Begin Label Label1
      BackColor       =   &H00FFFF80&
      Caption         =   "8 point"
      Height          =   252
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   5700
   End
End

Sub CmdCancel_Click ()
' Undo all changes
    FS_Edtxt.Txt8Pt.Text = Temp8$
    FS_Edtxt.Txt9Pt.Text = Temp9$
    FS_Edtxt.Txt10Pt.Text = Temp10$
    FS_Edtxt.Txt11Pt.Text = Temp11$
    FS_Edtxt.Txt12Pt.Text = Temp12$
    FS_Edtxt.Txt14Pt.Text = Temp14$
    FS_Edtxt.Txt16Pt.Text = Temp16$
    FS_Edtxt.Txt18Pt.Text = Temp18$
    FS_Edtxt.Txt24Pt.Text = Temp24$
    FS_Edtxt.Txt36Pt.Text = Temp36$
    FS_Edtxt.Txt48Pt.Text = Temp48$
    FS_Edtxt.Txt60Pt.Text = Temp60$
    FS_Edtxt.TxtSample.Text = TempSample$
    FS_Edtxt.Hide
End S